﻿<%

response.Charset="utf-8"

dim startime
startime=timer()

Dim conn,connstr
'on error resume next
connstr="DBQ="+server.mappath("#Date.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'数据库连接地址
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr

%>
<html>
<head>
<title><% =Title %></title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta http-equiv="Content-Language" content="zh-cn">
<style>
body,td,th {
	/*文字大小*/
	font-size: 12px;
	/*文字颜色*/
	color: #2E2E2E;
	/*文字行距*/
	line-height: 20px;
}

a:link {
	text-decoration: none;
	color: #000000;
}

a:visited {
	text-decoration: none;
	color: #000000;
}

a:hover {
	color: #FF6600;
}
</style>
</head>
<body>
<%
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select * from [Counter]"
mRs.open Sql,conn,1,1
%>
<table border="0" cellpadding="2" width="100%" align="center" style="border-collapse: collapse; BORDER-RIGHT: #000000 1px dotted; BORDER-TOP: #000000 1px dotted; BORDER-LEFT: #000000 1px dotted; BORDER-BOTTOM: #000000 1px dotted;">
	<tr>
		<td width="90">总浏览量：</td>
		<td><% =mRs("Counter") %></td>
		<td width="75">最高浏览量：</td>
		<td width="230"><% =mRs("Top") %></td>
	</tr>
	<tr>
		<td colspan="4" style="BORDER-TOP: #000000 1px dotted; "></td>
	</tr>
	<tr>
		<td>总IP量：</td>
		<td><% =mRs("CounterIp") %></td>
		<td>最高IP量：</td>
		<td><% =mRs("TopIp") %></td>
	</tr>
	<tr>
		<td colspan="4" style="BORDER-TOP: #000000 1px dotted; "></td>
	</tr>
	<tr>
		<td>今日IP量：</td>
		<td><% =mRs("Today") %></td>
		<td>昨日IP量：</td>
		<td><% =mRs("YesterdayIp") %></td>
	</tr>
	<tr>
		<td colspan="4" style="BORDER-TOP: #000000 1px dotted; "></td>
	</tr>
	<tr>
		<td>今日浏览量：</td>
		<td><% =mRs("Browser") %></td>
		<td>昨日浏览量：</td>
		<td><% =mRs("Yesterday") %></td>
	</tr>
	<tr>
		<td colspan="4" style="BORDER-TOP: #000000 1px dotted; "></td>
	</tr>
	<tr>
		<td>平均日IP量：</td>
		<td><% =int(mRs("CounterIp")/mRs("Daynum")) %></td>
		<td>统计天数：</td>
		<td><% =mRs("Daynum") %></td>
	</tr>
	<tr>
		<td colspan="4" style="BORDER-TOP: #000000 1px dotted; "></td>
	</tr>
	<tr>
		<td>平均日浏览量：</td>
		<td><% =int(mRs("Counter")/mRs("Daynum")) %></td>
		<td></td>
		<td></td>
	</tr>
</table>

</body>
</html>